perm filename SWING.ALP[AL,ARG] blob
sn#238493 filedate 1976-09-27 generic text, type T, neo UTF8
;Start of program
XPROG
;BLOCK
XMVAR
;
36
;
40
;
42
;
44
;
46
;$B1.G
50
;$B1.F
52
;$B1.E
54
;$B1.D
56
;$B1.C
60
;$B1.B
62
;$B1.A
64
0
;Assignment
XPUSH
L1
XCHNGE
;$B1.A
64
;Assignment
XPUSH
L2
XCHNGE
;$B1.B
62
;Assignment
XPUSH
L3
XCHNGE
;$B1.C
60
;Assignment
XPUSH
L4
XCHNGE
;$B1.D
56
;Assignment
XPUSH
L5
XCHNGE
;$B1.E
54
;Assignment
XPUSH
L6
XCHNGE
;$B1.F
52
;Move
XMOVE
L7
4
;Move
;first argument
XGTVAL
;$B1.C
60
;second argument
XPUSH
L10
XTTMUL
XCHNGE
;
44
XMOVE
L11
4
XGTVAL
;
44
XCHNGE
;BDEPROACH
30
;Move
;first argument
XGTVAL
;$B1.E
54
;second argument
XPUSH
L16
XTTMUL
XCHNGE
;
42
XMOVE
L17
4
XGTVAL
;
42
XCHNGE
;BDEPROACH
30
;Move
;first argument
XGTVAL
;$B1.F
52
;second argument
XPUSH
L23
XTTMUL
XCHNGE
;
40
XMOVE
L24
4
XGTVAL
;
40
XCHNGE
;BDEPROACH
30
;Move
XMOVE
L30
4
;Block end cleanup
XKVAR
;
36
;
40
;
42
;
44
;
46
;$B1.G
50
;$B1.F
52
;$B1.E
54
;$B1.D
56
;$B1.C
60
;$B1.B
62
;$B1.A
64
0
;End of BLOCK
XENDP
;End of program